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ABSTRACT 

Several  student-authored  computer  programs  are 
presented  which  do  advanced  plot  routines.  They  are  remarkable  in 
that  they  are  able  to  plot  a function  expressed  in  polar  coordinates 
on  a teletype.  Some  plot  routines  developed  by  the  Project  Solo  staff 
are  also  presented.  They  are  designed  to  be  used  with  a Hewlett 
Packard  7200  A plotter  connected  to  a teletype.  (JY) 
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Advanced  Plotting  Routines 

We  just  received  (courtesy  of  Miss  Kavanagh)  some  examples 
of  student-authored  plot  routines  that  are  nothing  short  of  in- 
genious. They  were  written  by  John  Ernsberger  of  Fox-Chapel 
High  School,  and  have  solved  the  almost  unsolvable  problem  of 
plotting  a function  expressed  in  polar  coordinates  on  a teletype. 
When  you  realize  that  the  teletype  cannot  backspace,  and  that 
the  paper  only  moves  forward,  you  get  some  idea  of  the  hurdles 
that  John  had  to  conquer.  We're  still  not  quite  sure  how  he  did 
it!  John  also  wrote  /SINESJE/  and  /POLTU/. 

The  Hewlett-Packard  Plotter 


For  those  of  us  with  not  quite  the  talent  that  John  has 
demonstrated  (including  Project  Solo  Staff) , there  is  hope. 

By  using  a more  flexible  plotting  device  which  can  move  back 
and  forth  in  both  the  X and  Y directions,  and  which  can 
plot  hundreds  of  points  (or  lines)  in  a small  space,  a whole 
new  range  of  possibilities  is  opened  up.  (We  don't  even  dare 
contemplate  what  Mr.  Ernsberger  would  do  with  this  tool  at  his 
disposal . ) 

Two  examples  are  attached  to  illustrate  the  performance  of 
the  HP  7200  A Plotter  which  can  be  connected  to  any  teletype. 

The  first  example  illustrates  use  of  the  plotter  to  draw  a 
cardioid  in  "point"  mode,  which  means  that  the  pen  only  makes  a 
"dot"  at  each  (X,  Y)  position.  The  angle  T (measured  in  radians) 
goes  from  0 to  6.28  (2tt)  in  steps  of  0.05  radians.  Thus  6. 28/. 05 

or  about  125  points  of  the  cardioid  are  plotted. 

In  the  second  example,  the  plotter  is  in  line  mode,  which 
means  that  the  pen  draws  lines  from  one  (X,  Y)  coordinate  position 
to  the  next.  In  the  example  shown  (a  five  leaved  rose) , we  delib- 
erately used  a large  increment  in  T so  that  long  line  segments 
are  drawn  from  one  point  to  the  next,  producing  an  interesting 
artistic  result. 

Since  the  HP  7200  A is  an  X-Y  plotter,  the  transformations 
X=R*COS(T)  and  Y=R*SIN(T)  had  to  be  used  in  both  those  examples. 
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10  DIM  YC480>*XC460>#ZC45*25>*BC480>*E<480> 

20  FOR  1=1  TV  580 

30  LET  A=I*Q5>e /I  80  .*3. 141 5926535 

40  LET  R=C0S(2*A> 

50  LET  YCI >=CSINCA> >*R  A listing  of  /POLAR/ 

60  LET  XC I > = <G0S ( A > >*R 
70  IF  1=1  THEN  90 

80  IF  ABSCYCD-YCl  >><0.000010000  AND  A35CXC  I >-X<  1 > ><0  .000010000  THEN  1 
00 

90  NEXT  I 
100  LET  1=1-1 

110  LET  BCC  >=ABS  CXCC  > > FOR  C = 1 TO  I 
120  GOSUB  670 
130  LET  0*BCI> 

140  LET  B(C>*Y(C>  FOR  C=1  TO  I 
150  GO SOB  670 
160  LET  0=8(1 > 

170  LET  j/=B  C I > 

180  LET  P«U/20. 

190  FOR  G*0  TO  W STEP  P 
200  LET  D=INT< CG-V>/P+1 .5> 

210  LET  L=1 

220  LET  ZCD# 1 >®0 
230  FOR  K= 1 TO  I 

240  IF  ABS(G-Y(K> >>0/39.9  THEN  270 

250  LET  L=L+1 

260  LET  Z(D*L>*X(K> 

270  NEXT  K 

280  IF  L=1  THEN  380 

290  LET  B(G  >=Z (D*C > FOR  C = 1 TO  L 

300  GOSOB  670 

310  LET  Z(D#C>=B(C>  FOR  C=1  TO  L 
320  FOR  Q=1  TO  L 

330  IF  ZCD*Q+1 >-ZCD,Q>>U/68.  THEN  370 

340  FOR  Al=Q+2  TO  25 

350  LET  Z(D*A1 -1 >=Z(D* A1 > 

360  NEXT  A1 
370  NEXT  Q 
380  NEXT  G 

390  FOR  F=W  TO  V STEP  -P 
400  LET  J«INT< (F-0>/P+l .5> 

410  IF  ABSCFXO/39.9  THEN  570 
420  IF  ABSCF-UX0/39.9  THEN  600 
430  IF  ABS(F+UXU/39.9  THEN  620 
440  LET  H=1 

450  IF  ZCJ>H>=0  THEN  480 

460  PR.  TABC35+ZC  J*H>/J*34>  t"*": 

470  GO  TO  510 

480  IF  N>1  THEN  530 

490  LET  N=2 

500  PR.  TAB(35>  t"Y"J 

510  LET  H»H+1 

520  GO  TO  450 

530  LET  N= 1 

540  PRINT 

550  NEXT  F 
55  0 GO  TO  640 

570  PR.  " X"  STAB  (3  >5-1  X TAB  ( 1 9 > 8,fX  X X X X X X X 0 X X X X X X X X"  s 
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70  LET  R=>IN(3*A/2) 
>SAOE 

ONt /POLAR/ 

OLD  FILE? 

>-NBS 

VER.  DEC  18  10:17 
>RUN  /POLAR/ 


5 80  PR.  TAB (54)  :U:TAB(69)  :'*X 

590  GO  TO  550 

600  PR.  TAB (35 ) tU 

610  GO  TO  550 

620  PR.  TAB(35)*-i*U 

630  GO  TO  550 

640  PR. 

650  PR.  ”CWEST  FINI I ! ! ! " 

660  END 

670  FOR  S= 1 TO  C-l 
680  FOR  M=S+1  TO  C 
690  IF  B(SXB(M)  THEN  730 
700  LET  T=B(S> 

710  LET  B(S)*B(M> 

720  LET  B(M)-T 
730  NEXT  M 
740  NEXT  S 
750  RETURN 
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C'EST  FINI! ! ! ! 


>40  LET  R»8.-12.*<l-C0S<A+l *2>> 
>SME 

ON* /POLAR/ 

OLD  FILE? 

>-NBS 

v/ER.  DEC  18  10*17 
>RUN  /POLAR/ 


• y * * * * * 

' Y * 

* Y*  * 

X -11.56833856  XXXXXXXXOXXXXXXXX  1 
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C'EST  FINI III! 

40  LET  R*12.-10.*< l-COSCA+l *2)  ) 

> S Av/  E 
ON* /POLAR/ 

OLD  FILE? 

>-NBS 

v/ER.  DEC  18  10*17 
>RUN  /POLAR/ 


X -8.485581595 


C’EST  FINI ! I 1 1 


Y * * * * 

Y*  * * 
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5 DIM  0 C 6 ) * Y ( 6 ) 

10’  FOR  X=-4  TO  4.01  STEP  0.1 
20  IF  ABSCX)>0.01  THEN  50 
30  PRINT  ” -2  YYYYYY  -1 
Y Y Y Y +2” 

40  00  TO  310 
45  GOST-1  500  GO  TO  150 
50  LET  YC 1 >=2.*SINCX) 

60  LET  YC2)=2.*CSINCX) )t3 
70  LET  YC3)=2.*C5INCX)  ) t'24 
80  LET  YC4>=SINCX)*SINC2*X> 

90  LET  YC5XSINCX) 

100  LET  YC6)=Q 
110  LET  ACIXYCI)  FOR  1=1  TO  6' 

120  FOR  0=1  TO  5 
130  FOR  J-Q+l  TO  6 

1/jO  IF  A C Q ) > A C J ) THEN  45 

150  NEXT  «J 

150  NEXT  0 

170  FOR  K=1  TO  6 

175  FOR  1=1  TO  6 

180  IF  ACKXYCI)  THEN  185 

189  NEXT  I 

185  ON  I GOSOB  690 j 6 tO* 630* 650 > 570# 535 
300  NEXT  K 
305  PRINT 
310  NEXT  X 

320  PRINT  "C*>=2*CSIMCX>>t3" 

330  PRINT  **  C # ) =S  I M C X ) +5 1 N C 9*X ) ** 

340  PRINT 

342  PRINT  "C&>*2*CSIN(X>>»244' 

344  PRINT  '•CS>«3*SIN(X>" 

350  PRINT 

360  PRINT  "FINISHED!!!4* 

370  END 

500  LET  T=ACQ ) 

510  LET  ACQ  )=AC*J) 

520  LET  AC J>=T 
530  RETURN 


Program  listing 
of  /SINESJE/ 


535 

FOR  R= 

i 

f> 

H 

O 

S 

540 

IF  A3SCX-RX0.91  THEN  ><l 

542 

NEXT  R 

548 

FOR  S = 

1 TO  4 

550 

IF  A3SCX-SX0.Q1  THEN  570 

555 

NEXT  S 

560 

GO  TO 

590 

570 

PRINT 

TAB  C 35  ) s ' ' ,4,a  2 

580 

GO  TO 

700 

583 

PRINT 

TA3C35)  s ’it 

587 

go  ro 

700 

590 

PRINT 

TAB C 35)  :,,X‘,s 

600 

GO  TO 

700 

610 

PRINT 

TAB  CYC  I ) *17+35')  s"*"? 

5 20 

go  ro 

700 

530 

PRINT 

TAB  CYC  I >*1  7+3  5) 

640 

GO  TO 

700 

650 

PRINT 

TAB C Y C I )*1  7+35)  :,,#**s 

660 

GO  TO 

7 00 

670 

PRINT 

TA3CYC I )*17+35) :M0": 

5 80 

GO  TO 

700 

0 690 

PRINT 

TA3CYC I )*1 7+35 ) •"S" S 

ERJC790 

RETURN 
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A run  Of  /SINES JE/ 


s 


$ 


s 

s * 

s * 

$ * 

$* 

$* 

s* 

s* 

s * # 

$ *# 
s * * 

#$ 

# s 

# s 

* 

§ 


t -46  § * 

# X4  *9 

# X4  * • 

# xa : * 9 

# X6*  9 i 

# X4  * 9 S 

# X4*  9 $ 

# X4  *8  $ 

#X4*9S 

S9+X4# 

S 9 *-34# 

$ 9 *X4  # 

$ 9 * X4  . # 

$ 9 * X4  *' 

5 9 * X6  # 

9 * X&  # 

4*  X4  # 

* 9 X4  # 

* 9 X4# 

9 X#& 

9 # -2  a 

9 # x a 

9 # X 

9 # X 

9#  x 

9 X 

9 X 

• x a 

9 x a 

§ x a 

9 -la 

* 9 xa 

*9  xa 

«#  * a 

9 * xa 

$ 9 * xa 

s 9 * xa 

# $ 9 *X4 

# s 9 *xa 

# 3>  9*X4 


-2  Y Y Y Y Y Y -1YYYYY 

Y Y 0 V y Y 

Y Y Y Y + 1 Y 

Y Y Y Y Y Y + 1 

xa*9s# 

xa*a  s 

# 

xa*  8 

* £ * 

xa*  8 

S * 

xa  * 

9 $ 

xa  * 

9 £ 

xa 

*3  S 

# 

xa 

9 * 

£ 0 

xa 

3 * 

£ 0 

+ la 

(?  % 

£4? 

x a 

3 

* * £ 

? 

x a 

3 

**  £ 

>c 

ft  9 

*»  * £ 

X 

#ft  *s 

4 

X 

9 # 

ft*£ 

(• 

V 

#3 

Y 

* 3 

*3 

'< 

V o ft 

Hi  £ 

■j. 

V £ 

3,  3 

.£ 

+ '•>>*} 

3 

* ■; 

•>  ;Cft 

3 * 

£ 

■f 

* X?# 

? * 

£ 

Xft 

3 * 

£ 

> 

# 

>:ft 

*a 

£ 

# 

X?c  * 

9 S 

* 

x5 * * * 9<  * 

9 5 

l 

/ 

# 

Xft*  o 

£ 

;.i 

# 

X*  * ? 

S 

■2” 

* Xft  * 0 

s: 

# + 3ft  *3  3 

.■£ 

*3$ 

<*)=2*<SIM(X>>T3 

4 

s**xft* 

<#)=SIN(X)+SINC2*X) 

5 9 *(»<# 

5 9 *X4  f 

s s * xa  # 

5 9 * xa  # 

9 * xa  # 

9 * xa  # 

9*  xa  # 

*9  + 4*  # 


<9  >=SIN(X> 

<4>=2*<siM<x>>t24 

<*>=2*SIM<X> 

FINISHED! I I 
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>RUN  /POLTU/ 


Thir  program  is  an  initial 
attempt  at  a "graphic" 
tutorial  by  high  school 
senior,  John  Ernsberger. 


X -1 


y # * * 

Y * * * * 

Y * 

Y 

Y * 

Y * 

Y 

Y* 

Y 

Y 

XXXXXXXXOXXXXXXXX  1 

Y 

Y 

Y* 

Y 

Y * 

Y * 

Y 

Y * 

Y * * * * 

Y * * * 

TYPE  THE  EQUATION  THAT  YOU  THINK  HAS  JUST  BEEN  GRAPHED. 
?R*CCS<A> 

GOOD 

(VEST  FXMXC  f 1 « 0.769751131 

* Y * 


CIRCLE  DRAWN  ON  THE 
[-j— p PLOTTER  USING 
LINE  MODE  AND  A LARGE 
INCREMENT  FOR  T 


Y = R * 5 I N CTD 


x=R*cc)5  ct: 

ERIC 
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CARDIOID  DRAWN  ON  THE  HP 
PLOTTER  USING  POINT  MODE. 


r 

t- 

! 

i 

! 


10  PRINT  "PL TP" 

15  T = 0 
!?0  A - 4. 

3 0 R = A*C  1 . - C0SCT)  ) 

4 0 X = R*CfiS<T> 

5 0 Y = R+SINCT) 

60  PR.  INT<  <?./3>»)*  X + 500  + 5000)5  INTC  Y*500  + 5000) 
70  T * T ♦ .05 
?0  IF  T > 6.28  G0T0  99 
9 0 G0T0  30 

99  PRINT  "PLTL" 

1 00  PR.  00005  5000S "t" 

1 05  PR.  50005  5000 
1 10  P,R.  99995  5000 
1 1 5 PR.  50005  9999: "»" 

120  PR.  50005  5000 
1 25  PR.  50005  0000 
1 30  END 
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FIVE-LEAF  ROSE  DRAWN  ON  THE 
HP  PLOTTER  USING  LINE  MODE. 


I 


I 

! 


I 


10  PRINT  "PLTl," 

1 5 T = 0 

20  A s 4. 

^ > R = SINC  5.*T/3. ) 

40  X s R*C0S( T) 

50  Y - R*SINCT> 

60  pr.  INTC  C2./3. >*X*2500+  5000)1  INTC  Y*2500+  5000 
70  T = T + *5 

80  IF  T > 75.  G0T0  99 
90  G0T0  30 

99  PRINT  "PLTL" 

100  PR.  00001  5000! '’t" 

1 05  PR.  50001 5000 

1 10  PR.  99991  5000 

115  PR.  50001  9?99:"t" 

120  PR.  50001  5000  n 

125  PR.  50001  0000  O 

ERJC  1 30  END 


